alias -l shift.nick { return sulkimun funyyyy bernandesi mohammidin ahumzzz alamah fitra firlan zeussss akolangkaling azzzzza ikakakaka ahuhuhuhu akikikiki ahihihihihi areloooooad aremoceeee ampungaka aminiature kufalood kaufloaod warara kalimaa bujuraan saempakmu kolaorijau zzazzza tercepaata kilakan gaknampak }
alias -l shift.iden { return zz lg apa kamu td dengan dia kamu selingkuh ya huhu dor mati kan kamu apalah minta benam saja mau hmm hayok marii selesai parah tumtum wekz ingin makan pecal }
alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net,id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id }
alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
alias -l shift.pass { return bignet40 bignet41 bignet41 bignet42 bignet43 bignet44 bignet67 bignet56 bignet45 bignet34 bignet67 bignet23 bignet34 bignet56 bignet76 bignet32 bignet45 bignet43 bignet78 bignet56 bignet34 bignet12 bignet11 bignet22 bignet33 bignet66 bignet55 bignet77 bignet79 bignet80 }


on *:start:{ .fullname P }

on *:exit:{
  hfree -w enemy.*
  unsetall
}

ctcp *:version:*:{
  ctcpreply $nick version P
}

on *:sockopen:*:{
  if ($sockerr > 0) {
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) could not connect to the server
    sockclose $sockname
    halt
  }
  echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
  sockwrite -nt $sockname $1- nick $sockname
  sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :P
  sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}

on *:sockclose:*:{
  if (!%c) {
    var %k = $findtok($shift.nick,$sockname,32)
    .timershift $+ %k 1 $calc(%k * 5) sockopen $gettok($shift.nick,%k,32) $gettok($shift.serv,%k,32) $gettok($shift.port,%k,32)
    echo -s $chr(35) $+ %k started, socket has been opened
    if (%e) {
      if ($sock($gettok($shift.nick,%e,32))) { sockwrite -nt $gettok($shift.nick,%e,32) part $shift.chan }
      while (%e <= $numtok($shift.nick,32)) {
        if (%e == $numtok($shift.nick,32)) { set %e 0 }
        if ($sock($gettok($shift.nick,$calc(%e + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%e + 1),32) join $shift.chan
          set %e $calc(%e + 1)
          break
        }
        inc %e
      }
    }
  }
}

on *:sockread:*:{
  :shift.read
  sockread -f %shift
  if ($sockbr == 0) return
  tokenize 32 %shift
  if (($2 == mode) && ($3 == $shift.chan) && ($sockname isin $5)) {
    if (-o isin $4) { sockwrite -nt $sockname ChanServ op $shift.chan $sockname }
    var %j = $nick($shift.chan,0)
    while %j {
      if ($hfind(enemy.nick,$nick($shift.chan,%j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%j) :4,4.14A15n0Ac0ON15d14A4,4. }
      dec %j
    }
  }
  elseif (($2 == join) && ($shift.chan isin $3)) {
    if ($hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W)) {
      if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :4,4.14A15n0Ac0ON15d14A4,4. }
    }
    elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
      if (($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($sockname,5)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($me,5)) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
      sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :0,1274.14AVATAR4.780
    }
  }
  elseif (($2 == kick) && ($3 == $shift.chan) && ($4 == $sockname) || ($4 == $me)) {
    if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && (!$hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W))) { hadd -m enemy.nick $gettok($mid($1,2,$len($1)),1,33) }
    if (($gettok($mid($1,2,$len($1)),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($sockname,5)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($me,5)) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
    if (%e) {
      if ($sock($gettok($shift.nick,%e,32))) { sockwrite -nt $gettok($shift.nick,%e,32) part $shift.chan }
      while (%e <= $numtok($shift.nick,32)) {
        if (%e == $numtok($shift.nick,32)) { set %e 0 }
        if ($sock($gettok($shift.nick,$calc(%e + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%e + 1),32) join $shift.chan
          set %e $calc(%e + 1)
          break
        }
        inc %e
      }
    }
  }
  elseif ($2 == 001) {
    sockwrite -nt $sockname join $shift.base
    if ((%e) && ($gettok($shift.nick,%e,32) !ison $shift.chan)) {
      sockwrite -nt $sockname join $shift.chan
      set %e $findtok($shift.nick,$sockname,32)
    }
  }
  elseif ($2 == 451) {
    sockwrite -nt $sockname $1- nick $sockname
    sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :4,4.14A15n0Ac0ON15d14A4,4.
    sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
    sockwrite -nt $sockname join $shift.base
    if ((%e) && ($gettok($shift.nick,%e,32) !ison $shift.chan)) {
      sockwrite -nt $sockname join $shift.chan
      set %e $findtok($shift.nick,$sockname,32)
    }
  }
  elseif (($1 == ping || $2 == ping)) { sockwrite -nt $sockname pong $2- }
  goto shift.read
}

raw 482:*:{ haltdef }
raw 442:*:{ haltdef }
raw 404:*:{ haltdef }
raw 403:*:{ haltdef }
raw 441:*:{ halt }
raw 442:*:{ halt }

on *:input:*: {
  if ($1 == .start) {
    .clear -s
    var %shift.a = 1
    while (%shift.a <= $numtok($shift.nick,32)) {
      if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
      inc %shift.a
    }
  }
  if ($1 == .quit) {
    .clear -s
    var %shift.b = 1
    while (%shift.b <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.b,32))) {
        sockclose $gettok($shift.nick,%shift.b,32)
        echo -s $chr(35) $+ %shift.b disconnected
      }
      inc %shift.b
    }
    .timershift* off
    unset %shift.d %shift.m*
  }
  if ($1 == .base) { echo -s $chr(35) %shift.base #$2 | set %shift.base #$2 }
  if ($1 == .chan) { set %shift.chan #$2 }
  if ($1 == .join) {
    var %shift.c = 1
    while (%shift.c <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.c,32))) {
        sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan
        set %shift.d %shift.c
        break
      }
      inc %shift.c
    }
  }
  if ($1 == .part) {
    sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
    unset %shift.d
  }
  if ($1 == .juh) {
    .timer 5 1 sockwrite -nt * privmsg $2 :a, M12H M2H M8H M10H M11H M7H M3H M1H M9H M5H M12H M13H M5H M11H M3H M14H M3H M7H M5H M5H M3H
    .timer 5 1 sockwrite -nt * notice $2 :a, M12H M2H M8H M10H M11H M7H M3H M1H M9H M5H M12H M13H M5H M11H M3H M14H M3H M7H M5H M5H M3H M
  }
  if ($1 == .jos) {
    .timer 5 1 sockwrite -nt * join %shift.chan
    .timer 5 1 sockwrite -nt * part %shift.chan :, )
  }
  if ($1 == .masuk) {
    .timer 1 1 sockwrite -nt * join %shift.chan
    .timer 10 1 sockwrite -nt * privmsg %shift.chan : , )
  }
  if ($1 == .hus) {
    .timer 1 1 sockwrite -nt * part %shift.chan
  }
